inherited FCadastroContrato: TFCadastroContrato
  Left = 182
  Top = 109
  Caption = 'Cadastro Contrato'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'CON_CODIGO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CON_NUMERO'
            Title.Alignment = taRightJustify
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CON_DESCRICAO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CON_VALOR_CONTRATO'
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        object Label1: TLabel [0]
          Left = 10
          Top = 47
          Width = 40
          Height = 16
          Caption = 'Codigo'
        end
        object DBText1: TDBText [1]
          Left = 10
          Top = 64
          Width = 65
          Height = 21
          DataField = 'CON_CODIGO'
          DataSource = dsCadastro
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel [2]
          Left = 10
          Top = 92
          Width = 67
          Height = 16
          Caption = 'N'#186' Contrato'
        end
        object Label3: TLabel [3]
          Left = 251
          Top = 92
          Width = 58
          Height = 16
          Caption = 'Descri'#231#227'o'
        end
        object Label4: TLabel [4]
          Left = 11
          Top = 183
          Width = 83
          Height = 16
          Caption = 'Valor Contrato'
        end
        object Label5: TLabel [5]
          Left = 144
          Top = 134
          Width = 64
          Height = 16
          Caption = 'Data Inicial'
        end
        object Label6: TLabel [6]
          Left = 258
          Top = 134
          Width = 59
          Height = 16
          Caption = 'Data Final'
        end
        object Label81: TLabel [7]
          Left = 120
          Top = 184
          Width = 80
          Height = 16
          Caption = '% Base INSS'
        end
        object Label7: TLabel [8]
          Left = 81
          Top = 47
          Width = 40
          Height = 16
          Caption = 'Cliente'
        end
        object Label8: TLabel [9]
          Left = 215
          Top = 185
          Width = 71
          Height = 16
          Caption = '% Base ISS'
        end
        object Label12: TLabel [10]
          Left = 10
          Top = 134
          Width = 80
          Height = 16
          Caption = 'Data Contrato'
        end
        inherited panel2: TPanel
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
        end
        object DBEDescricao: TDBEdit
          Left = 251
          Top = 107
          Width = 391
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'CON_DESCRICAO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 4
        end
        object DBEContrato: TDBEdit
          Left = 10
          Top = 107
          Width = 228
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'CON_NUMERO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 3
        end
        object DBDataInicial: TDBDateEdit
          Left = 143
          Top = 150
          Width = 107
          Height = 22
          DataField = 'CON_DATAINICIO'
          DataSource = dsCadastro
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ButtonWidth = 26
          NumGlyphs = 2
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 6
        end
        object DBDataFinal: TDBDateEdit
          Left = 256
          Top = 150
          Width = 107
          Height = 22
          DataField = 'CON_DATAFINAL'
          DataSource = dsCadastro
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ButtonWidth = 26
          NumGlyphs = 2
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 7
        end
        object ValorContrato: TRxDBCalcEdit
          Tag = 5
          Left = 11
          Top = 200
          Width = 99
          Height = 21
          DataField = 'CON_VALOR_CONTRATO'
          DataSource = dsCadastro
          Ctl3D = False
          DecimalPlaces = 15
          DisplayFormat = '0.,00'
          ButtonWidth = 0
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 8
        end
        object edPercBaseINSS: TRxDBCalcEdit
          Tag = 5
          Left = 122
          Top = 200
          Width = 80
          Height = 21
          DataField = 'CON_PERCBASESERVICOINSS'
          DataSource = dsCadastro
          Ctl3D = False
          DecimalPlaces = 15
          DisplayFormat = '0.00'
          ButtonWidth = 0
          MaxLength = 3
          MaxValue = 100
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 9
        end
        object DBLCliente: TDBLookupComboBox
          Left = 80
          Top = 64
          Width = 562
          Height = 22
          Ctl3D = False
          DataField = 'CON_CLIENTE'
          DataSource = dsCadastro
          KeyField = 'CLI_CODIGO'
          ListField = 'CLI_RAZAO'
          ListSource = DSCliente
          ParentCtl3D = False
          TabOrder = 2
        end
        object edPercBaseISS: TRxDBCalcEdit
          Tag = 5
          Left = 214
          Top = 200
          Width = 80
          Height = 21
          DataField = 'CON_PERCBASESERVICOISS'
          DataSource = dsCadastro
          Ctl3D = False
          DecimalPlaces = 15
          DisplayFormat = '0.00'
          ButtonWidth = 0
          MaxLength = 3
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 10
        end
        object GBResponsavel: TGroupBox
          Left = 8
          Top = 232
          Width = 331
          Height = 117
          Caption = '  Respons'#225'vel  '
          TabOrder = 11
          object Label9: TLabel
            Left = 149
            Top = 64
            Width = 37
            Height = 16
            Caption = 'Ramal'
          end
          object Label10: TLabel
            Left = 11
            Top = 64
            Width = 48
            Height = 16
            Caption = 'Telefone'
          end
          object Label11: TLabel
            Left = 13
            Top = 17
            Width = 34
            Height = 16
            Caption = 'Nome'
          end
          object DBENome: TDBEdit
            Left = 12
            Top = 33
            Width = 307
            Height = 22
            CharCase = ecUpperCase
            Ctl3D = False
            DataField = 'CON_NOME_RESPONSAVEL'
            DataSource = dsCadastro
            ParentCtl3D = False
            TabOrder = 0
          end
          object DBETelefone: TDBEdit
            Left = 11
            Top = 79
            Width = 125
            Height = 22
            CharCase = ecUpperCase
            Ctl3D = False
            DataField = 'CON_FONE_RESPONSAVEL'
            DataSource = dsCadastro
            ParentCtl3D = False
            TabOrder = 1
          end
          object DBERamal: TDBEdit
            Left = 148
            Top = 79
            Width = 67
            Height = 22
            CharCase = ecUpperCase
            Ctl3D = False
            DataField = 'CON_RAMAL_RESPONSAVEL'
            DataSource = dsCadastro
            ParentCtl3D = False
            TabOrder = 2
          end
        end
        object DBDataContrato: TDBDateEdit
          Left = 10
          Top = 150
          Width = 105
          Height = 22
          DataField = 'CON_DATA_CONTRATO'
          DataSource = dsCadastro
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ButtonWidth = 26
          NumGlyphs = 2
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 5
        end
        object GroupBox1: TGroupBox
          Left = 383
          Top = 140
          Width = 260
          Height = 213
          BiDiMode = bdLeftToRight
          Ctl3D = False
          ParentBiDiMode = False
          ParentCtl3D = False
          TabOrder = 12
          object Label17: TLabel
            Left = 8
            Top = 55
            Width = 29
            Height = 16
            Caption = 'IRRF'
          end
          object Label18: TLabel
            Left = 8
            Top = 79
            Width = 21
            Height = 16
            Caption = 'PIS'
          end
          object Label19: TLabel
            Left = 8
            Top = 104
            Width = 48
            Height = 16
            Caption = 'COFINS'
          end
          object Label20: TLabel
            Left = 8
            Top = 129
            Width = 32
            Height = 16
            Caption = 'CSLL'
          end
          object Label21: TLabel
            Left = 8
            Top = 153
            Width = 30
            Height = 16
            Caption = 'INSS'
          end
          object Label22: TLabel
            Left = 8
            Top = 178
            Width = 21
            Height = 16
            Caption = 'ISS'
          end
          object GroupBox2: TGroupBox
            Left = 5
            Top = 8
            Width = 250
            Height = 38
            TabOrder = 0
            object Label15: TLabel
              Left = 8
              Top = 16
              Width = 46
              Height = 16
              Caption = 'Imposto'
            end
            object Label16: TLabel
              Left = 75
              Top = 16
              Width = 12
              Height = 16
              Caption = '%'
            end
            object Label14: TLabel
              Left = 108
              Top = 16
              Width = 64
              Height = 16
              Caption = 'Sem REIDI'
            end
            object Label13: TLabel
              Left = 181
              Top = 16
              Width = 64
              Height = 16
              Caption = 'Com REIDI'
            end
          end
          object RxDBCalcEdit1: TRxDBCalcEdit
            Tag = 5
            Left = 63
            Top = 55
            Width = 48
            Height = 21
            DataField = 'CON_PERCIRRF'
            DataSource = dsCadastro
            Ctl3D = False
            DecimalPlaces = 15
            DisplayFormat = '0.00'
            ButtonWidth = 0
            MaxLength = 3
            NumGlyphs = 2
            ParentCtl3D = False
            TabOrder = 1
          end
          object RxDBCalcEdit3: TRxDBCalcEdit
            Tag = 5
            Left = 63
            Top = 79
            Width = 48
            Height = 21
            DataField = 'CON_PERCPIS'
            DataSource = dsCadastro
            Ctl3D = False
            DecimalPlaces = 15
            DisplayFormat = '0.00'
            ButtonWidth = 0
            MaxLength = 3
            NumGlyphs = 2
            ParentCtl3D = False
            TabOrder = 2
          end
          object RxDBCalcEdit6: TRxDBCalcEdit
            Tag = 5
            Left = 63
            Top = 104
            Width = 48
            Height = 21
            DataField = 'CON_PERCCOFINS'
            DataSource = dsCadastro
            Ctl3D = False
            DecimalPlaces = 15
            DisplayFormat = '0.00'
            ButtonWidth = 0
            MaxLength = 3
            NumGlyphs = 2
            ParentCtl3D = False
            TabOrder = 3
          end
          object RxDBCalcEdit7: TRxDBCalcEdit
            Tag = 5
            Left = 63
            Top = 129
            Width = 48
            Height = 21
            DataField = 'CON_PERCCSLL'
            DataSource = dsCadastro
            Ctl3D = False
            DecimalPlaces = 15
            DisplayFormat = '0.00'
            ButtonWidth = 0
            MaxLength = 3
            NumGlyphs = 2
            ParentCtl3D = False
            TabOrder = 4
          end
          object RxDBCalcEdit8: TRxDBCalcEdit
            Tag = 5
            Left = 63
            Top = 153
            Width = 48
            Height = 21
            DataField = 'CON_PERCINSS'
            DataSource = dsCadastro
            Ctl3D = False
            DecimalPlaces = 15
            DisplayFormat = '0.00'
            ButtonWidth = 0
            MaxLength = 3
            NumGlyphs = 2
            ParentCtl3D = False
            TabOrder = 5
          end
          object RxDBCalcEdit9: TRxDBCalcEdit
            Tag = 5
            Left = 63
            Top = 178
            Width = 48
            Height = 21
            DataField = 'CON_PERCISS'
            DataSource = dsCadastro
            Ctl3D = False
            DecimalPlaces = 15
            DisplayFormat = '0.00'
            ButtonWidth = 0
            MaxLength = 3
            NumGlyphs = 2
            ParentCtl3D = False
            TabOrder = 6
          end
          object DBCheckBox1: TDBCheckBox
            Left = 141
            Top = 56
            Width = 15
            Height = 17
            DataField = 'CON_RETEMIRRF_S_REIDI'
            DataSource = dsCadastro
            TabOrder = 7
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox2: TDBCheckBox
            Left = 205
            Top = 56
            Width = 15
            Height = 17
            DataField = 'CON_RETEMIRRF_C_REIDI'
            DataSource = dsCadastro
            TabOrder = 8
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox3: TDBCheckBox
            Left = 141
            Top = 79
            Width = 15
            Height = 17
            DataField = 'CON_RETEMPIS_S_REIDI'
            DataSource = dsCadastro
            TabOrder = 9
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox4: TDBCheckBox
            Left = 204
            Top = 79
            Width = 15
            Height = 17
            DataField = 'CON_RETEMPIS_C_REIDI'
            DataSource = dsCadastro
            TabOrder = 10
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox5: TDBCheckBox
            Left = 141
            Top = 104
            Width = 15
            Height = 17
            DataField = 'CON_RETEMCOFINS_S_REIDI'
            DataSource = dsCadastro
            TabOrder = 11
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox6: TDBCheckBox
            Left = 204
            Top = 103
            Width = 15
            Height = 17
            DataField = 'CON_RETEMCOFINS_C_REIDI'
            DataSource = dsCadastro
            TabOrder = 12
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox7: TDBCheckBox
            Left = 141
            Top = 128
            Width = 15
            Height = 17
            DataField = 'CON_RETEMCSLL_S_REIDI'
            DataSource = dsCadastro
            TabOrder = 13
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox8: TDBCheckBox
            Left = 205
            Top = 128
            Width = 15
            Height = 17
            DataField = 'CON_RETEMCSLL_C_REIDI'
            DataSource = dsCadastro
            TabOrder = 14
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox9: TDBCheckBox
            Left = 141
            Top = 152
            Width = 15
            Height = 17
            DataField = 'CON_RETEMINSS_S_REIDI'
            DataSource = dsCadastro
            TabOrder = 15
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox10: TDBCheckBox
            Left = 205
            Top = 152
            Width = 15
            Height = 17
            DataField = 'CON_RETEMINSS_C_REIDI'
            DataSource = dsCadastro
            TabOrder = 16
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox11: TDBCheckBox
            Left = 140
            Top = 179
            Width = 15
            Height = 17
            DataField = 'CON_RETEMISS_S_REIDI'
            DataSource = dsCadastro
            TabOrder = 17
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
          object DBCheckBox12: TDBCheckBox
            Left = 204
            Top = 179
            Width = 15
            Height = 17
            DataField = 'CON_RETEMISS_C_REIDI'
            DataSource = dsCadastro
            TabOrder = 18
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 664
    Top = 296
  end
  inherited dsCadastro: TDataSource
    Left = 729
    Top = 197
  end
  inherited QCadastro: TQuery
    Active = True
    SQL.Strings = (
      'SELECT * FROM CONTRATO')
    Left = 336
    Top = 384
  end
  inherited dspCadastro: TDataSetProvider
    Left = 312
    Top = 448
  end
  inherited cdsCadastro: TClientDataSet
    Left = 216
    Top = 448
    object cdsCadastroCON_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CON_CODIGO'
    end
    object cdsCadastroCON_NUMERO: TStringField
      DisplayLabel = 'N'#186' Contrato'
      DisplayWidth = 40
      FieldName = 'CON_NUMERO'
      Size = 30
    end
    object cdsCadastroCON_DESCRICAO: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'CON_DESCRICAO'
      Size = 60
    end
    object cdsCadastroCON_DATAINICIO: TDateTimeField
      DisplayLabel = 'Data Inicio'
      FieldName = 'CON_DATAINICIO'
    end
    object cdsCadastroCON_DATAFINAL: TDateTimeField
      DisplayLabel = 'Data Final'
      FieldName = 'CON_DATAFINAL'
    end
    object cdsCadastroCON_VALOR_CONTRATO: TFloatField
      DisplayLabel = 'Valor Contrato'
      FieldName = 'CON_VALOR_CONTRATO'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Size = 1
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      Size = 1
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
    object cdsCadastroCON_PERCBASESERVICOINSS: TFloatField
      FieldName = 'CON_PERCBASESERVICOINSS'
    end
    object cdsCadastroCON_PERCBASESERVICOISS: TFloatField
      FieldName = 'CON_PERCBASESERVICOISS'
    end
    object cdsCadastroCON_NOME_RESPONSAVEL: TStringField
      FieldName = 'CON_NOME_RESPONSAVEL'
      Size = 60
    end
    object cdsCadastroCON_FONE_RESPONSAVEL: TStringField
      FieldName = 'CON_FONE_RESPONSAVEL'
      Size = 15
    end
    object cdsCadastroCON_RAMAL_RESPONSAVEL: TStringField
      FieldName = 'CON_RAMAL_RESPONSAVEL'
      Size = 6
    end
    object cdsCadastroCON_DATA_CONTRATO: TDateTimeField
      FieldName = 'CON_DATA_CONTRATO'
    end
    object cdsCadastroCON_CLIENTE: TIntegerField
      FieldName = 'CON_CLIENTE'
    end
    object cdsCadastroCON_PERCIRRF: TFloatField
      Alignment = taCenter
      FieldName = 'CON_PERCIRRF'
    end
    object cdsCadastroCON_RETEMIRRF_S_REIDI: TSmallintField
      FieldName = 'CON_RETEMIRRF_S_REIDI'
    end
    object cdsCadastroCON_RETEMIRRF_C_REIDI: TSmallintField
      FieldName = 'CON_RETEMIRRF_C_REIDI'
    end
    object cdsCadastroCON_PERCPIS: TFloatField
      Alignment = taCenter
      FieldName = 'CON_PERCPIS'
    end
    object cdsCadastroCON_RETEMPIS_S_REIDI: TSmallintField
      FieldName = 'CON_RETEMPIS_S_REIDI'
    end
    object cdsCadastroCON_RETEMPIS_C_REIDI: TSmallintField
      FieldName = 'CON_RETEMPIS_C_REIDI'
    end
    object cdsCadastroCON_PERCCOFINS: TFloatField
      Alignment = taCenter
      FieldName = 'CON_PERCCOFINS'
    end
    object cdsCadastroCON_RETEMCOFINS_S_REIDI: TSmallintField
      FieldName = 'CON_RETEMCOFINS_S_REIDI'
    end
    object cdsCadastroCON_RETEMCOFINS_C_REIDI: TSmallintField
      FieldName = 'CON_RETEMCOFINS_C_REIDI'
    end
    object cdsCadastroCON_PERCCSLL: TFloatField
      Alignment = taCenter
      FieldName = 'CON_PERCCSLL'
    end
    object cdsCadastroCON_RETEMCSLL_S_REIDI: TSmallintField
      FieldName = 'CON_RETEMCSLL_S_REIDI'
    end
    object cdsCadastroCON_RETEMCSLL_C_REIDI: TSmallintField
      FieldName = 'CON_RETEMCSLL_C_REIDI'
    end
    object cdsCadastroCON_PERCINSS: TFloatField
      Alignment = taCenter
      FieldName = 'CON_PERCINSS'
    end
    object cdsCadastroCON_RETEMINSS_S_REIDI: TSmallintField
      FieldName = 'CON_RETEMINSS_S_REIDI'
    end
    object cdsCadastroCON_RETEMINSS_C_REIDI: TSmallintField
      FieldName = 'CON_RETEMINSS_C_REIDI'
    end
    object cdsCadastroCON_PERCISS: TFloatField
      Alignment = taCenter
      FieldName = 'CON_PERCISS'
    end
    object cdsCadastroCON_RETEMISS_S_REIDI: TSmallintField
      FieldName = 'CON_RETEMISS_S_REIDI'
    end
    object cdsCadastroCON_RETEMISS_C_REIDI: TSmallintField
      FieldName = 'CON_RETEMISS_C_REIDI'
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 192
    Top = 392
  end
  inherited OpenDialog1: TOpenDialog
    Left = 736
    Top = 304
  end
  object QCliente: TQuery
    Active = True
    BeforeInsert = QCadastroBeforeInsert
    BeforeEdit = QCadastroBeforeEdit
    BeforePost = QCadastroBeforePost
    BeforeCancel = QCadastroBeforeCancel
    BeforeDelete = QCadastroBeforeDelete
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from cliente'
      'where'
      '(excluido <> '#39'S'#39')or(excluido is null)')
    Left = 504
    Top = 384
  end
  object DSCliente: TDataSource
    DataSet = QCliente
    Left = 792
    Top = 368
  end
end
